<html><head>
    <meta http-equiv="content-type" content="text/html; charset=UTF-8"><title>Desktop.pb</title></head>
<body bgcolor="#EFF1F0" link="#3A3966" vlink="#000000" alink="#000000">
<pre><font face="Courier New, Courier, mono"size="2"><font color="#3A3966">;
</font><font color="#3A3966">; ------------------------------------------------------------
</font><font color="#3A3966">;
</font><font color="#3A3966">;   PureBasic - Desktop example file
</font><font color="#3A3966">;
</font><font color="#3A3966">;    (c) Fantaisie Software
</font><font color="#3A3966">;
</font><font color="#3A3966">; ------------------------------------------------------------
</font><font color="#3A3966">;
</font>
NbDesktops =<font color="#3A3966"> ExamineDesktops</font>()

<font color="#3A3966">MessageRequester</font>("Information", "You have "+<font color="#3A3966">Str</font>(NbDesktops)+" desktop(s)")

<font color="#3A3966">; Let's enumerate all the desktops found
</font><font color="#3A3966">;
</font><b><font color="#3A3966">For</font></b> k=0 <b><font color="#3A3966">To</font></b> NbDesktops-1
  
  Text$ = "Desktop n?quot;+<font color="#3A3966">Str</font>(k+1)+<font color="#924B72">#LF$</font>+<font color="#924B72">#LF$</font>
  Text$ + "Size: "+<font color="#3A3966">Str</font>(<font color="#3A3966">DesktopWidth</font>(k))+"*"+<font color="#3A3966">Str</font>(<font color="#3A3966">DesktopHeight</font>(k))+<font color="#924B72">#LF$</font>
  Text$ + "Color depth: "+<font color="#3A3966">Str</font>(<font color="#3A3966">DesktopDepth</font>(k))+<font color="#924B72">#LF$</font>
  
  <b><font color="#3A3966">If</font></b> <font color="#3A3966">DesktopFrequency</font>(k) = 0
    Text$ + "Frequency: Default"+<font color="#924B72">#LF$</font>+<font color="#924B72">#LF$</font>
  <b><font color="#3A3966">Else</font></b>
    Text$ + "Frequency: "+<font color="#3A3966">Str</font>(<font color="#3A3966">DesktopFrequency</font>(k))+" Hz"+<font color="#924B72">#LF$</font>+<font color="#924B72">#LF$</font>
  <b><font color="#3A3966">EndIf</font></b>
  
  Text$ + "Name: "+<font color="#3A3966">DesktopName</font>(k)
  
<font color="#3A3966">  MessageRequester</font>("Information", Text$)
  
<b><font color="#3A3966">Next</font></b>
</font></pre>
</body></html>
